Gui, -Sysmenu +AlwaysOnTop +ToolWindow
Gui, Color, Black
Size := A_ScreenWidth * 1.25
Gui, add, Text, x0 y0 h%Size% w%Size% hwndhText1,
Gui, Show,% "h" . Size . " w" . Size
hDc := DllCall("GetDC", "uint", hText1)
Loop {
Sleep, %RndSleep%
Random RndSleep, 0, 200
   Loop % Size//1 {
      Rnd  :=  A_Index * 10
      hPen := DllCall("CreatePen", "UInt", 0, "UInt", 1, "UInt", rnd)
      DllCall("SelectObject", "UInt", hDc, "UInt", hPen)
      Pos := 1*A_Index, Size2 := Size - Pos
      DllCall("Ellipse", "uint", hDc, "int", Pos, "int", Pos, "int", Size2, "int", Size2)
      DllCall("DeleteObject", "UInt", hPen)
   If (A_Index   = Size * .50)
         Sleep, 750
   }
}

esc::exitapp

/*
Gui, -Sysmenu +AlwaysOnTop +ToolWindow
Size := A_ScreenWidth * 1.25, hGui := WinExist()
Gui, add, Text, x0 y0 h%Size% w%Size% hwndhText1,
Gui, Show,% "h" . Size . " w" . Size
hDc := DllCall("GetDC", "uint", hText1)
Loop {
   Loop % Size//4 {
      Random rnd, 0, 0xffffff
      hPen := DllCall("CreatePen", "UInt", 0, "UInt", 4, "UInt", rnd)
      DllCall("SelectObject", "UInt", hDc, "UInt", hPen)
      Pos := 4*A_Index, Size2 := Size - Pos
      DllCall("Ellipse", "uint", hDc, "int", Pos, "int", Pos, "int", Size2, "int", Size2)
      DllCall("DeleteObject", "UInt", hPen)
      Sleep 1
   }
}

esc::exitapp
